home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 11
/
Amiga Plus 11: Amiga Future.iso
/
rexx
/
variablesdemo.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-07-31
|
3KB
|
186 lines
/*
------------------------------------------------------------
variablesDEMO.rexx
This script demonstrates how to define variables
Copyright ©1996 WK-Artworks
------------------------------------------------------------
*/
if ~show('P','Wildfire') then do
say " Error: The Wildfire-program must be started before executing this script."
exit
end
address "Wildfire"
options results
txt_text "tutorial/variables/txt1"
txt_centre
txt_wait
v_clear
pc_clear
m_openprocessor
pc_openvariables
txt_text "tutorial/variables/txt2"
txt_centre
m_wait 3
v_add 'test'
m_wait 2
txt_text "tutorial/variables/txt3"
txt_centre
m_wait 3
v_envelope
m_wait 3
ev_add 10 2
ev_add 20 '-3'
ev_add 30 1
ev_add 40 '-0.5'
ev_add 50 '-2'
ev_add 60 4
m_wait 2
txt_text "tutorial/variables/txt4"
txt_centre
m_wait 3
v_envelope
ev_viewall
m_wait 2
txt_text "tutorial/variables/txt5"
txt_centre
m_wait 3
v_envelope
ev_interpolation BEZIER
m_wait 2
ev_interpolation LINEAR
m_wait 2
ev_interpolation SPLINE
m_wait 2
txt_text "tutorial/variables/txt6"
txt_centre
m_wait 3
v_envelope
ev_scrollleft
ev_scrollleft
ev_scrollleft
ev_scrollleft
ev_scrollleft
ev_scrollup
ev_scrollup
ev_scrollright
ev_scrollright
ev_scrolldown
ev_scrollright
ev_scrolldown
ev_scrollright
ev_scrollright
m_wait 2
txt_text "tutorial/variables/txt7"
txt_centre
m_wait 3
v_envelope
ev_select 1
ev_selectnext
m_wait 1
ev_selectnext
m_wait 1
ev_selectnext
m_wait 1
ev_selectprev
ev_drag 21 4 24
ev_drag 20 '-3' 24
ev_drag 15 2 24
ev_drag 20 '-3' 24
m_wait 1
ev_selectnext
ev_interpolation BEZIER
ev_drag 30 5 24
ev_drag 39 4 24
ev_drag 21 3 24
ev_drag 23 '-3' 24
ev_drag 30 1 24
ev_selectnext
ev_drag 40 '5.7' 24
m_wait 2
txt_text "tutorial/variables/txt8"
txt_centre
m_wait 3
ev_openadvanced
eva_xval "1.0"
eva_yval "0.5"
m_wait 2
v_envelope
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
m_wait 2
ev_openadvanced
eva_xval "-2.0"
eva_yval "-1.0"
m_wait 2
v_envelope
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
eva_shift
m_wait 2
eva_close
ev_viewall
m_wait 2
txt_text "tutorial/variables/txt9"
txt_centre
m_wait 3
pc_closevariables
m_wait 2
txt_text "tutorial/variables/txt10"
txt_centre
m_wait 3
pc_add rotate stream stream 160 128 100 'test' 1.0
m_wait 2
txt_text "tutorial/variables/txt11"
txt_centre
m_wait 3
pc_openedit
pc_moveedit 0 0
m_wait 2
txt_text "tutorial/variables/txt12"
txt_centre
m_wait 3
txt_text "tutorial/variables/txt13"
txt_centre
m_wait 3
v_clear
pc_clear
m_closeprocessor
m_wait 2
txt_text "tutorial/variables/txt14"
txt_centre
txt_wait